-- card: 3032 from stack: in
-- bmap block id: 3331
-- flags: 4000
-- background id: 2586
-- name: Middle East Countries
----- HyperTalk script -----

on nextCountry
  global countryNum
  global theCountry
  put countryNum + 1 into countryNum
  put "Click on:" into line 1 of card field Prompt
  get line countryNum of card field CountryList
  put it into theCountry
  put theCountry into line 2 of card field Prompt
  put "" into line 4 of card field Prompt
end nextCountry


on countryHandler
  global learnMode
  if learnMode then
    learnHandler
  else
    guessHandler
  end if
end countryHandler


on learnHandler
  global clickedCountry
  clearPrompt
  put "The country is:" into line 1 of card field Prompt
  put clickedCountry into line 2 of card field Prompt
  wait 1 seconds
  put "Click on" into line 4 of card field Prompt
  put "any country" into line 5 of card field Prompt
  put "with a dot." into line 6 of card field Prompt
end learnHandler


on guessHandler
  global theCountry
  global clickedCountry
  global countryNum
  if countryNum < 18 then
    if clickedCountry <> theCountry then
      errorHandler
    else
      rightHandler
    end if
    nextCountry
  else
    clearPrompt
    showScoreCard
  end if
end guessHandler


on clearPrompt
  repeat with i = 1 to 6
    put "" into line i of card field Prompt
  end repeat
end clearPrompt


on errorHandler
  global errorCount
  put errorCount + 1 into errorCount
  highlightRightCountry
end errorHandler


on highlightRightCountry
  global theCountry
  repeat until the mouseClick
    set the style of card button theCountry to rectangle
    wait 5
    set the style of card button theCountry to transparent
    wait 5
  end repeat
end highlightRightCountry


on rightHandler
  put "CORRECT!" into line 4 of card field Prompt
end rightHandler


on showScoreCard
  global errorCount
  put errorCount into line 2 of card field ScoreCard
  put round((18-errorCount)*100/18) into percentage
  put percentage into line 6 of card field ScoreCard
  show card field ScoreCard
  wait until the mouseClick
  hide card field ScoreCard
end showScoreCard


on closeCard
  clearPrompt
  repeat with i = 2 to 8
    hide card field i
  end repeat
end closeCard






-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=153 right=175 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quiz
----- HyperTalk script -----
on mouseUp
  global errorCount
  global countryNum
  global learnMode
  clearPrompt
  hide card field ScoreCard
  hide card field CountryList
  put 0 into countryNum
  put 0 into errorCount
  put false into learnMode
  nextCountry
end mouseUp




-- part 2 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=180 right=202 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Learn
----- HyperTalk script -----
on mouseUp
  global learnMode
  put true into learnMode
  clearPrompt
  put "Click on" into line 1 of card field Prompt
  put "any country" into line 2 of card field Prompt
  put "with a dot." into line 3 of card field Prompt
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=207 right=229 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scramble
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  show message box
  put "This takes a minute or so." into the message box
  genRandomList
  loadTempList
  repeat with j = 0 to 17
    put 1 into minPosition
    put line 1 of card field RandomList into min
    repeat with i = 1 to 18-j
      put line i of card field RandomList into testNum
      if testNum < min then
        put testNum into min
        put i into minPosition
      end if
    end repeat
    get line minPosition of card field TempList
    put it into line j+1 of card field CountryList
    delete line minPosition of card field TempList
    delete line minPosition of card field RandomList
  end repeat
  hide message box
end mouseUp


on genRandomList
  repeat with i = 1 to 18
    put random(20) into line i of card field RandomList
  end repeat
end genRandomList


on loadTempList
  repeat with i = 1 to 18
    get line i of card field PermList
    put it into line i of card field TempList
  end repeat
end loadTempList





-- part 4 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=234 right=256 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  show card field Help
  wait until the mouseClick
  hide card field Help
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=261 right=283 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  show card field About
  wait until the mouseClick
  hide card field About
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=203 top=111 right=127 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Syria
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Syria" into clickedCountry
  countryHandler
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=183 top=123 right=135 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lebanon
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Lebanon" into clickedCountry
  countryHandler
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=189 top=157 right=171 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Jordan
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Jordan" into clickedCountry
  countryHandler
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=149 top=186 right=210 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Egypt
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Egypt" into clickedCountry
  countryHandler
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=240 top=196 right=233 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Saudi Arabia
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Saudi Arabia" into clickedCountry
  countryHandler
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=253 top=276 right=292 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yemen
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Yemen" into clickedCountry
  countryHandler
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=283 top=276 right=292 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: South Yemen
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "South Yemen" into clickedCountry
  countryHandler
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=342 top=236 right=252 bottom=359
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Oman
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Oman" into clickedCountry
  countryHandler
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=324 top=208 right=224 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: United Arab Emirates
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "United Arab Emirates" into clickedCountry
  countryHandler
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=273 top=161 right=176 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kuwait
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Kuwait" into clickedCountry
  countryHandler
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=235 top=127 right=147 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Iraq
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Iraq" into clickedCountry
  countryHandler
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=314 top=130 right=156 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Iran
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Iran" into clickedCountry
  countryHandler
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=396 top=122 right=145 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Afghanistan
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Afghanistan" into clickedCountry
  countryHandler
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=154 right=175 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pakistan
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Pakistan" into clickedCountry
  countryHandler
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=158 top=73 right=98 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turkey
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Turkey" into clickedCountry
  countryHandler
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=305 top=199 right=211 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Qatar
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Qatar" into clickedCountry
  countryHandler
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=187 right=199 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bahrain
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Bahrain" into clickedCountry
  countryHandler
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=176 top=148 right=160 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Israel
----- HyperTalk script -----
on mouseUp
  global clickedCountry
  put "Israel" into clickedCountry
  countryHandler
end mouseUp



-- part 24 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=8 top=31 right=148 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prompt


-- part 25 (field)
-- low flags: 80
-- high flags: 4007
-- rect: left=394 top=23 right=198 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 7
-- style flags: 0
-- line height: 9
-- part name: CountryList


-- part 29 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=153 top=83 right=273 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: ScoreCard


-- part 30 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=169 top=42 right=323 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About


-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=500 top=330 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  global countryNum
  put 15 into countryNum
end mouseUp



-- part 32 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=283 top=23 right=198 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 7
-- style flags: 0
-- line height: 9
-- part name: TempList


-- part 33 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=169 top=42 right=323 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help


-- part 36 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=239 top=23 right=198 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 7
-- style flags: 0
-- line height: 9
-- part name: RandomList


-- part 38 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=130 top=23 right=198 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 7
-- style flags: 0
-- line height: 9
-- part name: PermList


-- part 39 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=303 right=325 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  domenu Quit HyperCard
end mouseUp



-- part contents for card part 25
----- text -----
Turkey
United Arab Emirates
South Yemen
Qatar
Saudi Arabia
Egypt
Syria
Pakistan
Oman
Yemen
Jordan
Kuwait
Iran
Bahrain
Lebanon
Afghanistan
Israel
Iraq

-- part contents for card part 24
----- text -----







-- part contents for card part 29
----- text -----
You missed
9
Countries

Your Score is
50
Percent

-- part contents for card part 30
----- text -----

Middle East Countries

Created by Dave Duncan

Inspired by the program "Europe" 
on the DiskWorld Sampler Disk.

I had so much fun learning the countries of Europe, that I thought it might be fun to have a stack which helped teach the countries of the Middle East.  I never have been able to figure out all the geographic relationships of that area.  This isn't as snazzy or complete as 
"Europe", but anyone is welcome to enhance it.

(Click when done.)

-- part contents for card part 33
----- text -----

MIDDLE EAST HELP

Quiz Mode
The country is requested in the upper-left
corner of this card.
Click on the dot representing that country.

Learn Mode
Click on the dot of any country, and its name will be shown in the upper-left of this card.

Scramble
Scrambles the order in which the quiz asks for the countries. 

(click when done)

-- part contents for card part 38
----- text -----
Egypt
Jordan
Israel
Lebanon
Syria
Turkey
Iraq
Iran
Afghanistan
Pakistan
Saudi Arabia
Kuwait
Bahrain
Qatar
United Arab Emirates
Oman
South Yemen
Yemen